function [ red1Cruce, red2Cruce ] = crucedospuntos ( red1, red2 )
%Metodo de crossover "Cruce de dos punto"
%Se eligen dos locus al azar y se intercambian los alelos, a partir del primer locus,
%hasta el segundo locus.

    columns = cols(red1);
    
    r1=-1;
    r2=-1;
    
    while(r1==r2)
        r1 = fix((rand(1) * (columns-1)) + 1);
        r2 = fix((rand(1) * (columns-1)) + 1);
    end
    
    %r1 tiene que ser menor a r2
    if(r1>r2)
        aux = r1;
        r1 = r2;
        r2 = aux;
    end
    
    red1Cruce = [red1(1,1:r1-1) red2(1,r1:r2) red1(1,r2+1:end)];
    red2Cruce = [red2(1,1:r1-1) red1(1,r1:r2) red2(1,r2+1:end)];
end

